LABEL O000OOOO0PRIMEH00175099CC lX OB JLC T/RE AC ;F ILE SOURCE*" ILE=SYMBUl/MERg; END* 



6 

V 

a 

9 

in 
ir 
1..' 




,r 



e 

o 
Q 

S l 

Q 



J1 L 
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w 
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06 
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i38 
39 
40 
41 
42 



f- 
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14 ( 

15 

16 

17 I 

18 

19 

20 | 
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22 
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,10 
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Il2l 
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17 
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24 
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BEGIN 

%%* MERGE/CANOE SOURCE PHOGRAM* O-/0. XXX 

CQMME.N.T ? * TlIL£i_.e^J)ilza^i3.^J^ii<_jaV_^...S.T.£d...H£LLi^ __ _ 

FILE ID! SYMHOL/MERG TAPE ID* SYMBUL2/F ILEOOO 

THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION 

__D__S _11I__Q . „££_ ME PJ_U_J C E PAUSED* UR P- ISCLOS FQ 

EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON 
WRITTEN AUTHORIZATION UF THE PmTENT DIVISION OF 
aORB-OU G W S C OaaflHAlOfllU-IUJJtlUl *- Ml ChlGAN 4fl?3? __ 



* 
* 
* 
* 

* 



COPYRIGHT CC) 1971, 1972 BURROUGHS CORPORATION 
--AA12020& AA3B6 657 

real common; 

SAVE ARRAY ERRC0»4J#A>N[0I903*B»PaRaMS[C*10J; 



*... 

* 

* 

..* 

* 

* 
_____ 



FILE IN MERGFIL DISK SERIAL (2*0,0); 

FILE OUT OUTFIL DISK SERIAL [201600] C 2* 10* 300' SAVE 1)* 

FILE. OUT .jMEJMAJB- JlliK_aEfilAL_t20.LiO_l._tie 4.Qj 3Q.6* Si» ______ 

BOOLEAN BRAAK,DELTOG,MERGREAD/REsEQ/KEVTQG,sEQChK # SFLG,SUPPRESS,OK; 
BOOLEAN MAKTAB; 
J___L EMPTY, _FULL» M E X J_P A_R A M , J_E _ J R E A_D_, 
MERGFILES* EOFSOURCE* EUFrfERG* EXItV" 

real lastmerge; 

_RML .AO.J.'_ BASE' EOFfTj?, ENQE-ETE' 
INCR, LINE, LRANGE, ' """" ■■■■• — - 

OUTSeQ* PC* prevseq, 



.JJ__£_L____ HA VEMERG, 



_N_5LSJ___._ _J£M_fiK_ 

MEHGEbEQ, NCr, NMQ, NPARAMS, 
-OURct^EQ' STRlDE«-ETt# 



OOOiOOOO 

oooioioo 

00 Qi 0110. 

oooiom 

00010112 
flMlQll 3 
0Q010U4 
00010H5 
-QfliUO 116. 
00010H7 
00010118 

.._e_i._u.«- 

00010200 
00010300 

.QjQJtLUUQfl.- 
00010500 
00010600 

._____?_.<__.. 

00010800 
00010810 
-.0.QO.1Q.9O.0 
00011000 
00011010 



h rang e* 000 11 ioo 

, NPTR, 0OOU2O0 

STRTRESE61, USE«;00011300 



**_**._* * * .* * * *___j*j_.,*_ *.*.** Jl* * * »o ooi laoo 

00011500 



LREC, 
«EC* 

.___*_*.* *..* .**.*_*.* *.*..*.**..**_*** * *****_** * .*_*_* * *_*. *_* * ****** 

REAL STREAM PROcEDURe"hOR(F,T); VALuY n7~ ' 00011500 

X****** ******* ****** **************** ************************************0001160Q 

- — §E~l_L - — '. ____„ ; 00011700 

su=f; 3(sn»si-e>; dialog f; usi-kds; ooohsoo 

SU=F; 14CSI :*Sl+8)' D 1 : = L f J C F; i.)b: = wDs; 00011900 

s_i_r.f n ( s i : - s i -t- e ) ; p 1 t - l qc ,.h d ,h> .d s ? *uqsj_ _ 00012000 



LND STREAM PROCEDURE HDR; 00012100 

X*****************************#********************* # *** #a ******* # ^ a# ^qqq,- 2 0Q 
PIPCEOURE DISKWAlTU'A,S,Oj; _^ _ 00012300 

value i*s,o; real i,sV6; array aC*3 i communTc :ateT-8 )"; "~ To'olTiob 

%****************************************** AlMk *** lfc<r<t * lk<r#<k<k ^^ WwAir ^ ## ^ 1(lr#A ^ QQ 1 2500 
PROcrnuRE TkxniiT^ a.im.ti; ™m,*,,«„ 



§R.OCJEj_JR.E IMQilIi__4___!_ __ _ _ __ __ ...y.y__«.«_ 

r************************* ******»******************0Q0 12700 



X********************* 
VALUE n*t; 
MAL^AiMaU . 

BEGIN COMMUNlCATEC-li); 

8RAAK != BOOL E AN(T); X MCP RETUHin- 

J___ 



5... 



___JL_6J3_..._ 



00012800 

.__0129__ 



1 If- flREAK OCCURRED, 



00013000 
00013100 
00 01320 



******* ********************************************* 1 3 3 00 

""' v *' -r * ! w * 00013400 



X ******************* .. _. 

REAL PROCEDURE INPCQNVU), REAL X, UOUi^oo 

..*.**_**** ******* ******* *_* * ** * * ******* *********** * *_* * * * ******* * *_* * * * *** * * * * 00 13410 

BEGIN REAL SEQj "" " ~ 000l3?20 

REAL STREAM PROCEDURE INCONV(X); 00013430 

BEG IN Spax; OltaLOC INCQnV; US; S 8UCT; ENO 00013440 



IF (SEQJaABS(lNCONVCX))) GTR" 

inpconvi»seq; 

END PROCE DURE INPC C NV; 



99999999 THEN S£U J 1*99999999; 



00013450 
00013460 
00013500 



— - ..:. ■ . . .', y__y______y 

X*****************************************„ r<r *** + ******* A *^ i * <r#A# ^ Wl>Al)t44)lr oQo^3^QQ 
STREAM PROCEDURE OUTCONVC A»N), VALUE NJ 000U700 

BEGIN SII«LQC N_J D I » - A ; 0S> = 80E Cj END; 00013800 



ut'- w> ux'-oucw, cwu> UUU1J8UU 

X**** **************************************************************** ** A Q001 3 9 00 
STREAM PROCEDURE MQVE(N#A,B>; VALUE N; 00014000 

begin sh»a; dikb; osi»n hds; enuj _.__..__ o o o 1 4 1 



1^ 

2< 

3 
4 

5 ( 



12 
13 

14' 

15 

16 

,7 I 

18 

19 

20 I 

21 

22 

23 ' 

24 

25 

26 i 

27 

28 

29 { 

30 

31 

32 ( 

33 

34 

35 { 

36 

37 

38 ( 



41 

42 

43 

44 ' 

45 

46 

47 

48 

49 

50 I 

51 

52 

53 

54 

55 

56 

3 



• • 



I s - 

s 

6 

I " 
18 

t 

ID 

I"" 

;2 
ll.il 

14 






'191 

'SI 
I 

22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 

33 

L 
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36 

36 

37 ~ 
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41 

42 

43 

L, 

k 
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50 
61 
52 
53 
54 
55 
56 
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STREAM PROCEDURE I NFCRMUSERC A,NM13R» LAST ) '> VALUE NMBR#LASTJ 
%* ************** ******** ****** ***********_**** ** * ************* 
nr/iiki inr&i cut 



DJi li£ tiflDJ.. 



begin local sv; 

di:*a; svi«du sh«loc nmbr; ds**8dec; dijssv; 

SI i*SV; PI $»5Y.1 8(IF gJC-W. " ...Ih£N._bli«5.Ltl. .-.LSI. 

dsj=36lit m Records merged clast record me:rgec s "; 

svt=oi; sijxloc last; ds:*8Dec; uh*sv; qsj^/fili; 

s i .1 ? s v ; p i.» ■ s v. ; jxi E s_c « " __lj__, !_. s i.i=__.i ±i else .. o _______.«; > 



0S*«16LIT M ) 
END STREAM PROCEDURE INFORMUSER/* 
%**********************************_*** *_* ************ *j*_* *_*_*_* * * 

' STRE AM PR0CEDuRrMAKERR(ERR7^^)'; ~V ALOE N 1 * N 2/~ 

X***************************************** ********* ********** 

BEGIN LOCAL §V_ _ 

6i«»ERR; DSi»i5LIT M SE0UENCE EBRORI"; 5 V I ■ 1 i 

SllsLOC Nil DS»«8 DEC; 'DII«5V# DS»*7FlLL; 



D.I t «Syi . 81 ! ■PI+.8A D.SI_2_1.T_._ 



m» 



*Jf.**_* **_**.* ** *..* *.*.* ************ 

~ '% ""GET" ESP RECORD 



Sv»»Dl; SUsLOC N2; DSls8DEC; DHsSv; DSt=7FlLL; 

END STREAM PROCEDLRE MAKERR; 
% ************************************************************ 
PROCEDURE ERR0R(Nl,N2); VALUE Ni#N2» REAL Ni#N2l 
X************************************************************ 
BEGIN ..._ _ - 

MAKERR(ERR#N1>N2)J TWX0UTCERRt0J»33#l)i 

END PROCEDURE ERRORS 
%*********************_********** 

a c o ] i *o ; o ii s k w a i T( i/T, io, c ; o i m m b n ') "i 

USER ts A[2]| 

J3iiT-C.QNV_llWEftAnj_L_fi.*JajJJ_.__l_iiL^ _. 

IF CMAKTABX«A[9],[6: 123*"lS") THtN % TAB FILES fit-QOlRED 
FILL NEWTAB WITH " "&"1T"[ & » J6 S 1 2 j &LINE I 18 **3C ; 18 3 ,USER; 

. EJLUL.J4Efifi£lL .iiLlii_A.O.i_....AL_U.i - _ 

FILL OUTFIL WITH A[9I» USER; * OuTPUT FILE NAME 
FILL SOURCEFIL WITH AC103#USERJ 

IE ..R.ESE&. .!.». A_ai.JiEa...__lil£r_ _ _ 

BEGIN 

STRtRESEQ»*A_Sj; % LOWER BOUND FuR RESEQUENCE 

E ND RE SE Q L_AJ_6_J % UPPE R B OUND FCK HESEQu E N C E 

BASE 

_.£MD1_ 

IF DELTOG 

BEGIN 

_SXRIDLLEI E_ 1___JLUJ_LJ_ 
" "' ~~" AC121I 



***********00014200 
00014300 

.*. *..*..* * * .**.*. * * QXl01M.QjQ .. 
00014500 
00014600 

P_3.P147_05.. 

0C014800 
00014900 

.„ ___aa«Li4aia. 

00014920 
00014930 

********* * * o o.o 155 00 
00015100 

***********000 15200 

MO1.51.Q.0. 

00015400 
00015500 

0J_P1.5__lQJL 

00015700 
00015800 

* * aa*.*_*_* * *.* QO-0.15 .9 
00016000 

***********00016100 

- 00016-2-00 

00016300 
00016400 
.*.*** *******Q00 16 5..QJ3.. 

000 16600 
00016700 

j__g_____L 

00016810 
00016900 

QnSUlOQSL 



•■AC83I % RESEQUENCE INCREMENT 
»=»A[7]-Incr; % RESEQUENCE BaSE; 



0001 
0001 

janoi 

oooi 
occn 
oooi 



= AC 11 3 NEC THEN * DELETING PahT 0F~~SUU RCEFTlE 



oooi 
oooi 

_gj_oi 



7100 
7200 
Z3JHL 
7400 

7500 
Z.60.0_ 
7700 
7800 

L2M_ 



ENDELETE !a „ fc4tJ , 
SUPPRESS I* TRUE/ % DONT PRINT NUMBER MERGED 
-EA10J- 



NPARAMS := AC 1 3 • C27I63 I % PARAMETER COUNT 

SFLG :* ACl],C3Jl]c0i % ON, IF TYPE DATA FlLt^ 

REVTQG »- AC13 .[5I1J »1.; % REV ERSE -MERGE 

SUPPRESS 1= (AC13.C8*13«1) QR SUPPRESS; % SUPPRESS MESSAGES 

prevseq «* nct i* -i; 

LREC i«_OJ 

EOF MARK JMOOOboOOO; " " 

READ(S0URCEFIL'10*A[*])IEMPTY]; 

SOURCESEQ i- INPCONVC AC9])i G(j TO FuLl; 

EMPTY l SOURCESEQ «» EOFMARKj 

FULLI 

IF S EQCHK __!_■ NPARAMS GTR Q THEN St PARAMETERS SPECIFI ED 



00018000 

oooiaioc 

QO 01 82 00 
00018300 
00018400 

..O-CLQ-lflS-OIL 

00018600 
00018700 

JLQ.0187JJJL 
00018800 
00018900 
Q.Q0.190PQ 
00019100 
00019200 
00U1930 



00019400 
00019500 
00019600 



T^ 



_& 



h~- - - 



4 I 
6 ' 

k 

s 

;,- 

,10 

11 

K 

i'<3 
4 
5 
6 

I 17 
|18 

m 

20 
21 

sa 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

35 

34 

35 

3(i 

37- 

38 

39 

40 

1 I 

42 

43 

44 

45 

46 

47 

M 

49 

SO 

51 

52 

53 

54 

56 

56 



L„.7.L'... * .E..Q.F P&IM 

«-i; lheci»i; 



BEGIN 

M0VE(9. A[2l-*PARAMS); 
..._ READ SEEKCWERjiFlLCCJ)' EQFH 

REC»*0; NPARAHS!»KpARAMS-i; 
NEXTPARAM: 

LREC I* ..LREC. -J7 

LR A NG E ! =HR A N GE : * P A R AM S [ p C t = 
IF' LRANGE*10000000C THEN * 

BEGIN _ 

READCMERGF IL [ECFPTR ] > 14. B[ * 3 ) [EOFyERG "_; ''READ ("mERGF ~IL ) i 

go to havemerg; 

end; _ 

IF PC L^>S n'paRAMS THEN * MG ' '""" 

IF PARAMSEPC+ll.Cl !l J=l THE 



Tl<L=HjKiMEKGFl 

mergeseq:»'pc* 



= hC + l 1, 



ER 



HRANGE*fPAPA>«SiPjf l*Pt+JLl.C2 
IF NOT SFLG THEN % RECORD l" 

BEGIN 
READ SEEM^.ER(iFlLlL.rt.E.Cl.? 

GO TO ReAdMERG* * SKIP P 

end; 
if. merge seq = lr ange _then_ % 

BEGIN LREC'sLREC + It Go 
IF (EOFPTR-LREC) USS 30 THE 

_£CI?_L__ECtJ_________lRr_l_fi__C.l. J3 1 V 

GO TO testread; 

DO BEGIN 

I.E.. XMNGX LSi -M£fi5.ES£.fi I 

RECJs(REC:*REC-ADJ)xREAL 
IF REC»a(tREC*sREC)tADj 

.I£__I__E__Q1 



til PARAMETERS 
N I HAiMGE SPEC 
li 27 1, 

ocatIun specif 



AVAILABLE 
IFItD 



IEO 



kMJ___._ili!_ 

I i\i A H Y - E a >< ^ h 

A i_ ft E A U Y frtvt 



to havemerg; 
n go to readme 
. 2A__*_._m__T . J A 



1H ji HECUfiC_ _ 

end; 

RGi X SKIP BINARY 
-THE. CE.NTLB_._LF._fiA 



SEARCH 

__G£ 



H1.N _LJ_Jl_LL_flAC 

CREC.till.«0) 
GTR E&FPTR THE 



K*.J_JJLT-_LJlS_.Q. 

else * move up 
n rec»*eofptr; 



REA0(MERGFIL[REC3/14/Bt*].}; 
MERGESEQ:=INPCGNV(BC93); 
..lf--J-£-tfiE----Q--L RAKG E..THEN * MATC HING Rrr f f,R D 



BEGIN LREC:*REC; READCmERGFIl >> go to havemerg; end; 
ADJ»«(REC-LREC) 0IV 2; 

END..UNT..IL....AD__...L£.6L...li— - 

READ seekcmerGfilclreci.; * 

END; % IF PARAMETERS SPECIF 

__-____#_•. -A.*...* _ 



NOT FOUND IN 
IED 



BINARY SEARCH* GO BACK 



READMERG' 
.. RJ E A D C ME R.GF I L , \ .,. BJ_*1 ) I E OF M E MG 11 



LREC := LREC + 
MEHGESE- » = IF 
IF SEQCH K THEN 



1* 
SFLG 



THEN INPCONVCBm) ELSE LRECi 



..____ 



BEGIN 

IF MERGESE- 
.1? MERG_ESEQ _ 

IF SEQCHKjsPC LSS 

END; % IF SEQCHK 
■__i_i__ . _ 1 ...._ , 



LSS LRANGE THEN GO TO READMERG; 
GTR HRANGE THEN % TOO HIGH 



% TOO LOW 



NPARAhS THEN Gu NEXTPARAM ELSE GO EOFMERG/ 



HAVEMERGI 
*•••••••■ 

OUTSEQ S» 



mergeseq; 



nmg :» mmg + i; 

If RESEQ THEN % RESEGUENCE THE MERGE FILE 

1 F OK OR _M E H_G E.S EQ__GE Q S TRTR £ SEU THEN 

TF RESEQIaOKJsMERGEsEC LEqTnDRESEQ THEN % RECORDS ARE 



BEGIN 
OUTSEQ 



IN RANGE 
' s BASE t» BASE + I NCR/ it CALCULATE NEW SEQt NUMBER 



00019700 

00019800 

Qiu.9A99.QQ, 

00020000 

00Q2Q1CC 

00020200 

00020300 

000*0400 
O..QGiO_iQ..O_ 
00020600 
0002070C 

.__ii____fl____Q 

000*0900 

000*1000 

000*1 LP 

00021200 

00021300 

000214 00 

00021500 

00021600 

£.0.0 £1.7.0.0 .. 

000*1600 

00021900 

._LQ____2.ftfi.0__ 
00022 1QQ 
00022200 

..Q_30i__L3fi.O. 
00022400 
00022500 

nno??<snn. 



00022700 

00022800 
„QJ_0.______1Q 



00023000 
00023100 

-CLO.C-2320.0- 
000233CC 

00023400 

j___a_La_i____. 

00023600 
00023700 
00023800 

00023900 
00024000 
0Q0^4L00 
00024200 
00024300 
000244 00 
00024500 
00024600 
000*4700 



00024800 
00024900 
0002500 



00025100 
00025200 
000*5300 



00025400 
00025500 
000*5600 



rt 



I — 



>- 

1 



3 

u — 

6 

6 

V 

8 

9 

II 
II! 

H 

I4| 

"'I 

|17| 

Its' 

'19 

H 
p t 

22, 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
B6 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



0UTC0NV(6C9],0UTSEG)* % MOVE NUNbLR TO Mfc.RGfc.KlLt. RECORD 

end; 
if outseq l.eq pre.vseg then * out of sequence 

BEGIN 

IF NUT BRAAK THEN ERRORC PRE VSEQ* QUTSE Q ) ; * TELL THE USER 
OUTSEQ *= PREVSEQ + 2J % ADJUJT_S£0UENCE NUMBER _ _ _ 
""0UTC0NV(B[9'fibUTSEC)'i " " 

eno; 

.PMV.SEQ !.=-. . .Qy.TS£Qi.„ __ _ _ - 

MEHGFILESt 

..*.§....• _*..»...«.. » t * «. _._ 



00025700 
00025800 

.o_aoi.5.agc. 

QQ02600Q 

00026100 
00026200 
00026300 
0Q0264QC 
m02.6.5..Q.C. 



50 
51 
52 
53 

54 
55 
56 

5L 



IF DELTOG THEN IF SUyRCESEQ G£w ST*IOElETE THEN * DELETE THIS SECTION 
BEGIN 

OFLTOG t= FALSE; _ 

WHILE SOURCESEQ LEfl ENDELETE UO 
BEGIN 

READ( SOUR.CEOL'lQlAI *JJ.t£flEAQ.UHjl£.U 

SOURCESEQ *» INPC0NV(A[9J )i 
ENO *JHILE STATEMENT; 

END QELETING S.Q.Uii.C£FI.LE_ SECIlUj>i; _ _ 

If MAKTAB THEN 

IF NPTR i= NPTR + 1 GTR 29 THEN * SEGMENT IS FlLUEU 

- BEGIN _.. _ __ ......__ ...... 

WRlTE(NEWTAB#30»i\C*3 ); 
NPTR5=0; 

end.; _ _ .._.... _ 



00026600 

0002670C 

-00.0.26800-- 



00026900 
00027000 

jmoiiijia 



00027200 

00027300 
nn0i>7An» 



IF SOURCESEQ LSS OUTSEQ THEM % wRlTE SOURCE FIRST 

BEGIN 

HRITE(0UTFI L»10 *A[*3); 

IF MAKTAB THEN 

NCNPTR]!=0 & CnCT: bNCT + 1') [«: 32 : 16 j & SjukCESE Q [2 1 : 2 1 '• 27 J ; 
_ AEADXS.QiiJiC.£F_LLi. .JJUALtlU E OFS Q UHC 4 -.1L 



00027500 
0002760C 
..&S&JL11M.. 
00027750 
0002780C 

...0.002x9-0.0- 

000*8000 
00U2810U 
.0Ji.U.2.B-2.Q.Q- 
0002H30C 
00028400 
00028 500 



S0URCESE8»sIF SFlG THEN INPCONV ( AC 9 ] ) ElSE lREc; 

go to mergfiles; 

IF SOURCESEQ GTR OUTSEQ THEN % wRITE MERGE RECCKU fTrsT 

BEGIN 
HRI TE(0UTFILj10»BC«] )J LASTMLK6E:»0UTSEJJ _ 



00028550 
00028600 

.0002fljLGXI 



IF MAKTAB THEN 

NCNPTR]*«0&(NCT»*NCT+l)Cft*32. 16 34QUTSEbC21»21»27]l 
GO TO READMERGJ _ __ 



00028800 

00026900 
npQy Q QOQ 

00029100 

00029200 

-M0293QQ. 



end; 
% outseq ■ sourceseq 

MERGREAD'sTRUE; % IN CASE OF EOF BRhNCH 



00029350 
00029400 

00029500 



IF REVTOG THEN 
BEGIN 

writecqutfil>io#8[*3); lastmeigejsqutseq; 



00029600 
00029700 
00029800 
00029900 
00029910 
000 29920 



END 
ELSE 

BEGIN 



WRITECQUTFIL,lO,A[*n; NMG»«NMG-1* 

end; 
if maktab then 



N [NPTR 3 I «04 (NC T I »NC T ♦ l H 4 : J2 » 10 J *0U 1'SEfl [ 21 * 2 1 » 'clTf 

REAO(SOUHCEFlL#lO,At*])lEl)FSOURCL3# 

SOURCESEQ X* INPC0NVCAC9D); 



mehqreadi-false; 
go to readmerg; 

* « f ■* »• ***' 



00029930 
00030000 
OOP 300 10 
00030020 
00030030 
00030050 
00030100 
00030200 
00030300 



00030400 
00030500 
00030600 



29 | 

30 

31 

32 ( 

33 

34 

35 | 

36 

37 

38 { 

39 

40 

41 ( 

42 

43 

44 ( 

45 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

56 { 

57. 



m • 



W~)* 



•3 
' 4 



£, 

I 
91 

io[ 

11| 

J 

15 

16 

17 

18 

[IB' 

|20 

121 

« 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

44 

35 

36 

37 ~ 

38 

39 

40 

41 

12 

43 



LOFSOURCE: 
% 

.-I£.jQUl5.£fl«£JLFKABJS . T±LE___ Q LU.XAl.LLJ. XIlilSMD. 

scurceseqi*eofmark; 

if mergread then x eofsource and source seq, s me.rge seq, 

fl£Mi«._MEBiiLRElJia«EAi^El..AQ_IiL.fi£AIil4Eii^i . E_U . . 

EH>E GO TO MERGFILES; 

*#•••#•#♦ 

EOFMERG: 



IF SOURCESEQ*E0FMARK THEN GQ 
_1U11_E_-_L__ Efi__E_£_J sXQF-MARKJL ___ 



TO EXIT; * FINISHED 



GO TO 

% * • • • 

JJLilL 



MERGFILES; 



% • • • • 

IF MAKTAB THEN 

BEGIN _ __ _.,. 

IF NPTR:=NPTR+1 GTR 29 THEN 
BEGIN 

JSfllI£JU4EJ8XAfliJjCLiLNI*JJLL._.. 

NPTRJsO; 

end; 

-WtMP.lfi.ll*EaF-MARKi. _ _. 

WRlTE(NEWTAB»30f N[*]); 
READCNEWTAB[03*3O>NC*]); 

_N.C-aUsN.CU X-EEF- PC-LN-UH- 



WRITE(NE»»TABtO]#3C*NE*]); 
LOCKCNEWTAB**); 
________ ___/_ MAKIAB. 



c l s e c sou R c e>Tl ) i c L cs'zTh e R g f it Ti l a ' C K ( d U T Fit * * 

IF NOT SUPPRESS THEN 
iE.Ql.fiL.__ __ __ 

informuseR(a#nmg#lastmf«ge); 

TWX0UT(AC0]#52#1); 

Jg _______ _____ 

COMMON : = NMG ; 
END PROGRAM. 
E NO; END, 



)> 



..last _AJIL.o.N .JL_ii_LNG_JAP__ 



00030700 
00030800 
._Q.y__.9.0_ 
00031000 
00031100 
._.___._ 12__. 
00Q3130C 
000-1400 
.Q_0_U1_Q_Q.. 
00031600 
00031700 

._iaflaiA_a.. 

00031900 
00032000 

-0-a_-32-i_aa- 

OQ03220Q 
00032300 

.ao.ai2AOG- 

00032500 
00032600 
jQ_1__2ZL_G.... 
00032800 
00032900 

-oacii-icuia. 



00033100 
00033200 

jio-1334go. 

00033400 
00033500 

J2J_0__,6___L 



00033700 
00033800 
00033900 



00034000 
00034100 

0Q0 342J.Q 
00034300 
00034400 
99V99999 



45 

46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



LABEL O0C0O000CPRIMEHOO17SO99CC EX OB JEC T /RE AU;F I LE SOURCtF IlE«5YMBQl/MERG;END* 



OBJECT /READ 
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